home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1998 November / MAC100-1998-11.ISO.7z / MAC100-1998-11.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / ﾈｯﾄﾜｰｸ⁄ｺﾐｭﾆｹｰｼｮﾝ / webconfidential1.0.1j.sit / Web Confidential 1.0.1J / Web Confidential 1.0.1J.rsrc / TEXT_129_JavaScript.txt < prev    next >
Text File  |  1998-07-28  |  935b  |  50 lines
  1. function xsetuseridandpwd(ii) {
  2.  
  3. var sm;
  4. var count = 0;
  5. var index = 0;
  6.  
  7. var sm_it = false;
  8. var result = false;
  9. var smclick = false;
  10.  
  11. var n = document.forms[ii].elements.length;
  12.  
  13.     for (var i = 0; i < n; i++) {
  14.            if (document.forms[ii].elements[i].type == "text") {
  15.         count++;
  16.                                 index = i;
  17.                 }
  18.  
  19.            if (sm_it && document.forms[ii].elements[i].type == "submit") {
  20.                  sm  = document.forms[ii].elements[i];
  21.         smclick = true;
  22.     }
  23.  
  24.            if (document.forms[ii].elements[i].type == "password") {
  25.         document.forms[ii].elements[i].value = "PSW";
  26.         result = true;
  27.     }
  28.  
  29.  } // for loop
  30.  
  31.  if (count == 1) 
  32.    document.forms[ii].elements[index].value = "ID";
  33.  
  34.  if (smclick && result)
  35.      sm.click();
  36.  else if (sm_it && result)
  37.     document.forms[ii].submit();
  38.  
  39.  return result;
  40. }
  41.  
  42. function lp_x_forms() {
  43.   for (var i = 0; i < 3; i++) {
  44.       if (xsetuseridandpwd(i))
  45.          break;
  46.   }
  47. }
  48.  
  49. lp_x_forms();
  50.